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SSSSSSSS_ YY YY SSSSSSSS EEEEEEEEEE RRRRRRRR AAAAAA PPPPPPPP AAAAAA TTTTTTITIT 
SSSSSSSS_ YY YY SSSSSSSS EEEEEEEEEE RRRRRRRR AAAAAA PPPPPPPP ALRAAK TTTTTTTTIT 
SS YY YY $$ EE RR RR AA AA PP PP AA Aa TT 
S$ YY YY SS EE RR RR AA AA PP PP AA AA TT 
SS oe SS EE RR RR AA AA PP PP AA AA TT 
SS YY YY $s EE RR RR AA AA PP PP AA An TT 
SSSSSS YY SSSSSS EEEEEEEE RRRRRRRR Aa AA PPPPPPPP AA ga TT 
SSSSSS YY SSSSSS EEEEEEEE RRRRRRRR AA AA PPPPPPPP AA Aa TT 
SS YY SS EE RR RR AAAAAAAAAA PP AAAAAAAAAA TT 
SS YY SS EE RR RR AAAAAAAAAA PP AA TT 
SS YY SS EE RR RR A AA PP AA AA TT cece 
SS YY SS EE RR RR A AA PP Ba BB TT cece 
SSSSSSSS YY SSSSSSSS EEEEEEEEEE RR RR AA AA PP AA AA TT eeee 
SSSSSSSS YY SSSSSSSS EEEEEEEEEE RR RR AA AA PP Ad AB TT eee 
LL III! SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] S$ 
LL I] SS 
LLLLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL III SSSSSSSS 
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FACILITY: VMS Executive, System services. 

ABSTRACT: 
Generate and return a security erase pattern. This code 
is more or less a place holder for a user written routine to 
accomplish the same function. The erase pattern returned by 
this routine will always be zero. 

ENVIRONMENT: 
Kernel Mode 

AUTHOR: 
Steven T. Jeffreys 

CREATION DATE: 
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Equated symbols: 


TYPE 
COUNT 
PATADR 


MAXCOUNT= 


4 
8 
1 
1 


6 5 
fe . security erase pattern 
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Declarations 
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Define grese ¢ tyee codes 
Define P 
Define 4 Ba. codes 


Ot feet ee TYPE parameter (value) 
Offset to COUNT parameter (value) 
Offset te PATADR parameter (address) 


Maximum count (erase 1 time) 
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"PrSep=1obe O8:53:08 LevsvencieiserAcaToman;1 28° GZ, 
-SBTTL Entry vector 


The following vectors are used by the various pieces of the 5 gryten 
to access the erase pattern generator. The vector EXESERAPA 

ysed by the change mode dispatcher in resp — to a yeer calling the 
ERAPA EIESERAPA PAT vee, This vector th se s to the actual dispatch 
vector, EXE ump to erase pattern 
generator cod F Rs “Level of ind re ction 2 nec qsgary because the 
change mode disp atch vector must "be | n close. prox iaity to the change 

mode dispatcher, which implies t_ it must be in a cSes-eniy press. 

The actual di a ee vector, EXE PRAP PAT_VEC, must be in a writa 

psect so that the contents of the vector may be changed. 


which n turn will 


0 The Longword SGNSGL_LOADFLAGS is a bit vector used to indicate which 
00 ieces of the loadable pieces of the EXEC should be loaded at system 
0 oot ti a F If a user specified erase Ba attern sonereter Aw hy is 
resent n the system, the bit SGNSV_L ~ ay will be set 
fect can A “eee to the advantage of the EXEC to oorié: the’ overhead 
7 hey ng to cal g | default erase pattern generator, since it always 
86 returns @ zero, ial S$ @ one-step erase function. 
00 The vector address the user must specify to load the code is represented 
000 by the symbol EXESERAPAT_VEC. 
an 
0000 900 3 -PSECT AEXENONPAGED ; Nonpaged UR access only 
0 99 EXESERAPAT:: 3 Entry point from chengs-node dispat. 
0009 0 100 «WORD 0 ; Register save mask (none saved) 
00000000'°9F 1 : ! 1 JMP @#EXESERAPAT_VEC ; Jump to the dispatch vector 
0000000 108 -PSECT $$$500 ; The vector must be nonpaged and URKW 
00 104 EXESERAPAT_VEC:: 3 Quick access entry point 
00000000'9F 17 000 105 JmP @#EXESERAPAT_RIN ; Vector to default routine 
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-SBTTL Main routine 

SERAPAT 

Functional description: 
In order to perform a multi-st 4 eerie orpee, a. aller repeatedly 
calls this service, each tine f ncremen ration count. After 
each cots the erase pattern returned is oe he ie n the user supplied 
area. e user is responsible ror propagating that 3 ttern throughout 
memory, 7" tape, etc.) Wh . the pervie urns SS$_NOTRAN in RO, 
the security erase operation s complete. 


This simple routine will always return an erase pattern of 0. It is 
up to the system mangager to provide a specialized load algorithm. 


Calling sequence: 

This routine should be called via a CALLS/G to EXESERAPAT. 
Input: 

TYPE (CAP) + Soeurtiy or grese sxe: rhe aso types are 


: im 
ER RASE™ Disk : wick Stee storese 
ERASK_TAPE : tape storage 


COUNT (AP) : Iteration count. The service house be called 
the first time with the value then 2, etc., 
until the status $S$_NOTRAN is returned. The 
Local symbol MAXCOUNT defines how many times this 

appens. 


Output: 


PATADR(AP) : Address of a longword into which the security 
erase pattern is to be written. 


Routine value: 


RO = SS$_ACCVIO : getters output area not accessible 
SS$-BAD a : invalid security type code 
SS$_NO : morass successful Teapletion 
85° NOTRAW : security erase complete 


-PSECT YSEXEPAGED 
EXESERAPAT RIN:: 
MOVZWL 


This code is pageable 
; SERAPAT code 


a i a a a a dd od 
—CdO0ooO 


PDEA D Grr Be Be BBB BE EB AA. AIAN AIP IPUNINININIDD 2 2 OO OO OO 


BR OOD NIA ALE WN 9 OD NA NE WIN OS OOD NA UNE WWI 2 O OO NONE WP SOOO NOA UNE UO 0OO~ 


50 14 92 asss TRADPARAR, RO 3 Assume bad perencter value 
51 04 AC MOVL a A 3 Get the t ype ¢ 
ASSUME ERA K MAIATYPE EQ 1 : Ss mu aust ous if ase mf to work 
7 BLEQ 9S : pened type code tp sae 
51 3 CAPL #ERASK_MAXTYPE ,R1 ; Is the type code too big? 
BLSS ; Branch yes 
51 08 AC MOVL EQUNT CAP) .R1 ; Get the geun 
1¢ BLEQ : Branch i - small 


J 5 
voL=000"" Rain routing vw 17 erase Pattern T6nSE=19be 08:58:08 ESysvsaclstseRMpatonan.? = 9 cf 


50 9629 , > 2 18 MOVZWL #SS$_NOTRAN,RO 3; Assume count too big 
MP #MAXCOUNT RI ; Are we done 
LS 69$ ; If less, then yes 
50 ‘ 1 MOVZWL o338 accy 0,R0 ; Assume access violation 
51° OC AC OD 1 MOVL  PATADR(AP) 1 3 Get address of yser buffer 
1 IFNOWRT #4,(R1),698 ; Branch if no write access 
61 4 8 1 cLRL crf) ; Return the erase pattern 
50 1 C 1 MOVZWL #SS$_NORMAL ,RO 3; Set success status 
1 § 69$: RET 3; Return 
17 
1 174 END 
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Symbol table , ° §-$65 =} 382 88: 9%: 33 SYS. SRCIS SERAPAT MAR: 1 . f) 
trey MAXTYP . 
= 

RARE RINT : 

XESERAPAT 

KESERAPAT_RT 
EXESERAPAT_VEC 
MAXCOUNT = 
PATADR = 

SS$_ACCVIO = 

$S$_BADPARAM 2 

SS$_NORMAL = 
SS$_NOTRAN s 

TYPE = 
PSECT name 
. ABS . 00000 ( 0.) 00 ¢ 9-3 NOPIC USR CON ABS’ LCL wee NOEXE NO NOWRT NOVEC BYTE 
SABSS 0000 ( 8. 1 ¢ -) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE 
AE XE RONPAGED 0000 ( ) ¢ ( §°} NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
$$$500 44 4464 ( 8°} ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED 00000 ( 49.) 046 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
Geaceceenucsusucsessssese$ 
! Performance indicators H 

Phase Page faults CPU Time Elapsed Time 


Initialization 133 0: O: : 13 
fag! 


i processing o 

Syabol table sort : : : : ; :00:01 
Symbol table output :00:00.03 :00:00. 
Psect synopsis output :00: 4 :00:00. 
Cross-reference output :00: $ 0. 
Assembler run totals 43 :00:06.6 


The porting set Limit was 1400 

3528 bytes _ (46 pages} of v rtuals menory were used to buffer the intermediate 

oe were 30 pages of symbol table space allocated to hold 460 non-local gnd yo symbols. 
174 source Lines were read in Pass 1, producing 17 object records in Pass 

12 pages of virtual memory were used to define 11 macros. 


r 
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VAX-11 Macro Run Statistics 


bern w rr ene eee eee ee eee ee ene ey 


! Macro Library statistics ! 


Fewer nermnw enn mw ocezrweaonresereone 


Macro Library name Macros defined 


~$355$DUA28: SYS.OBJJLIB.MLB;1 1 
$255$DUA28: (SYSLIBJSTARLET .MLB;2 7 
TOTALS (all Libraries) 8 


533 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=LIS$:SYSERAPAT/OBJ=OBJ$:SYSERAPAT MSRC$:SYSERAPAT/UPDATE=(ENHS: SYSERAPAT) +EXECMLS$/LIB 
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